home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_oth / m2cmp20 / mathlib0.def < prev    next >
Text File  |  1988-11-19  |  520b  |  27 lines
  1. DEFINITION MODULE MathLib0;
  2.  
  3. (* (C) Copyright 1987,1988 Fitted Software Tools. All rights reserved. *)
  4.  
  5. (*
  6.     MathLib0 module as defined in the book "Programming in Modula-2"
  7.     by Niklaus Wirth.
  8. *)
  9.  
  10. PROCEDURE sqrt( x :REAL ) :REAL;
  11.  
  12. PROCEDURE exp( x :REAL ) :REAL;
  13.  
  14. PROCEDURE ln( x :REAL ) :REAL;
  15.  
  16. PROCEDURE sin( x :REAL ) :REAL;
  17.  
  18. PROCEDURE cos( x :REAL ) :REAL;
  19.  
  20. PROCEDURE arctan( x :REAL ) :REAL;
  21.  
  22. PROCEDURE real( x :INTEGER ) :REAL;
  23.  
  24. PROCEDURE entier( x :REAL ) :INTEGER;
  25.  
  26.  
  27. END MathLib0.